﻿Imports System.Data
Imports System.Data.SqlClient
Imports Entidad

Public Class DocumentoAlmacenUbicacionDatos

    Sub registrarDocumentoAlmacenUbicacion(ByVal dadu As DocumentoAlmacenDetalleUbicacion)
        Dim conex As New Conexion
        Dim coneccion As SqlConnection = conex.conectar()
        coneccion.Open()
        Dim query As String = "INSERT INTO Documento_Almacen_Detalle_Ubicacion(" &
                              "CIA,SUC,TDOC_Codigo,DCA_Codigo,DAD_Codigo,ALM_Codigo," &
                              "COD_Ubicacion,COD_Usuario,DADU_Cantidad) " &
                              "VALUES(@cia,@suc,@tdocodigo,@dcacodigo,@dadcodigo,null," &
                              "null,null,null)"
        Dim comando As New SqlCommand
        With comando
            .Connection = coneccion
            .CommandText = query
            .Parameters.AddWithValue("@cia", dadu.CIA)
            .Parameters.AddWithValue("@suc", dadu.SUC)
            .Parameters.AddWithValue("@tdocodigo", dadu.TDOC_Codigo)
            .Parameters.AddWithValue("@dcacodigo", dadu.DCA_Codigo)
            .Parameters.AddWithValue("@dadcodigo", dadu.DAD_Codigo)
            .ExecuteNonQuery()
        End With
        coneccion.Close()
    End Sub

    Function obtenerDocumentoAlmacenUbicacion(ByVal dadu As DocumentoAlmacenDetalleUbicacion) As DocumentoAlmacenDetalleUbicacion
        Dim dadud As DocumentoAlmacenDetalleUbicacion = Nothing
        Dim conex As New Conexion
        Dim coneccion As SqlConnection = conex.conectar()
        coneccion.Open()
        Dim query As String = "SELECT CIA,SUC,TDOC_Codigo,DCA_Codigo,DAD_Codigo,ALM_Codigo,COD_Ubicacion," &
                              "COD_Usuario,DADU_Cantidad " &
                              "WHERE CIA = '" & dadu.CIA & "' AND SUC = '" & dadu.SUC & "' AND " &
                              "TDOC_Codigo = '" & dadu.TDOC_Codigo & "' AND DCA_Codigo = '" & dadu.DCA_Codigo & "' " &
                              "AND DAD_Codigo = '" & dadu.DAD_Codigo & "'"
        Dim adapter As New SqlDataAdapter(query, coneccion)
        Dim ds As New DataSet
        adapter.Fill(ds)
        coneccion.Close()

        If ds.Tables(0).Rows.Count <> 0 Then
            Dim cia As String = ds.Tables(0).Rows(0)("CIA").ToString.Trim
            Dim suc As String = ds.Tables(0).Rows(0)("SUC").ToString.Trim
            Dim tdocodigo As String = ds.Tables(0).Rows(0)("TDOC_Codigo").ToString.Trim
            Dim dcacodigo As String = ds.Tables(0).Rows(0)("DCA_Codigo").ToString.Trim
            Dim dadcodigo As Integer = CInt(ds.Tables(0).Rows(0)("DAD_Codigo").ToString.Trim)
            Dim almcodigo As String = ds.Tables(0).Rows(0)("ALM_Codigo").ToString.Trim
            Dim codubicacion As Integer = CInt(ds.Tables(0).Rows(0)("COD_Ubicacion").ToString.Trim)
            Dim codusuario As String = ds.Tables(0).Rows(0)("COD_Usuario").ToString.Trim
            Dim daducantidad As Integer = CInt(ds.Tables(0).Rows(0)("DADU_Cantidad").ToString.Trim)
            dadud = New DocumentoAlmacenDetalleUbicacion(cia, suc, tdocodigo, dcacodigo, dadcodigo, almcodigo, codubicacion, codusuario, daducantidad)
        End If

        Return dadud
    End Function

End Class
